home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / storage / function / dasd / ioctl / formtrk2.scr < prev    next >
Encoding:
Text File  |  1994-05-11  |  546 b   |  26 lines
  1. @thread FORMTRK2.LOG
  2. @NewAlias da DASD.GRA
  3. da LOG $PROMPT="LOGGING FORMAT TRACK 2"
  4.  
  5. da response $PROMPT="DRIVE TO FORMAT ex C:" $RESPONSE=DEVICENAME $PAUSE=-1
  6. da DASD_OPEN
  7. da LOCK_LOGICAL
  8. da GET_LOGICAL_PARAMS
  9. da set TRACKNUM=1  \
  10.          VAL2=1    \
  11.          $i=0                     
  12.  
  13. da SUB $OP1=$(HEADCOUNT) $OP2=$(VAL2)  $RESULT=P
  14. da set $LOOPCOUNT=$(P)   \
  15.          $i=$(HEADCOUNT)
  16.  
  17. @loop [da, $i]
  18. da set HEAD=$($LOOPCOUNT)
  19. da out $KWD=$($LOOPCOUNT)
  20. da FORMAT_TRACK
  21. da DECREMENT
  22. @endloop
  23.  
  24. da DASD_CLOSE
  25. @flush da
  26.